home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b4.d64
/
example4.7
< prev
next >
Wrap
Text File
|
2007-02-28
|
593b
|
30 lines
0010 DIM NUM(150)
0020 //RANDOMIZE // NOT NEEDED WITH CBM COMAL
0030 POS:=0
0040 FOR VALUE:=1 TO 200 DO
0050 IF RND(0,1)=1 THEN
0060 POS:=POS+1
0070 NUM(POS):=VALUE
0080 ENDIF
0090 ENDFOR VALUE
0100 LOW:=1; TOP:=POS
0110 INPUT "SEARCH NUMBER?": REQ
0120 REPEAT
0130 MID:=(LOW+TOP) DIV 2
0140 IF NUM(MID)=REQ THEN
0150 FOUND:=TRUE
0160 ELSE
0165 FOUND:=FALSE
0170 IF NUM(MID)>REQ THEN
0180 TOP:=MID-1
0190 ELSE
0200 LOW:=MID+1
0210 ENDIF
0220 ENDIF
0230 UNTIL FOUND OR LOW>TOP
0240 IF FOUND THEN
0250 PRINT "NUMBER FOUND AT POSITION";MID
0260 ELSE
0270 PRINT REQ;"NOT FOUND"
0280 ENDIF